# Draw heatmaps
fheatmap(fheatmap_data, title="Example Heatmap", title_fontsize=15,
title_color="coral4",title_fontface="italic")
fheatmap(fheatmap_data, display_number = TRUE)
# Add custom matrix color
library(gplots)
breaks <- seq(min(fheatmap_data),max(fheatmap_data), by=0.05)
matrix_color_vector <- colorpanel(n=length(breaks)-1,low="green",mid="black",
high="red")
fheatmap(fheatmap_data, mat_color=matrix_color_vector,cluster_rows=TRUE)
#Font style
fheatmap(fheatmap_data,names_fontface="italic",names_color="brown",fontsize=6)
#Draw Dendograms
fheatmap(fheatmap_data, cluster_rows=TRUE, cut_rowtree=2, cut_coltree=2,
display_tree_row=TRUE)
# Generate annotations
fheatmap(fheatmap_data, annotation_row=annotation_row,
annotation_col=annotation_col)
fheatmap(fheatmap_data, annotation_row=annotation_row,
annotation_col=annotation_col,
annot_row_color=annotation_row_color,
annot_col_color=annotation_col_color)
fheatmap(fheatmap_data, annotation_row=annotation_row,
annotation_col=annotation_col,annotation_palette = "Dark2",
npalette_col=5, seed=3)
fheatmap(fheatmap_data, annotation_row=annotation_row,
annotation_col=annotation_col,legend_fontsize=5,
legend_fontface="bold", legend_color="red")
#Complete heatmap
fheatmap(fheatmap_data, cluster_rows=TRUE,display_tree_row=TRUE,
title="Fantastic Heatmap",title_fontsize=15,
title_color="darkslateblue",title_fontface="italic",
annotation_row=annotation_row, annotation_col=annotation_col,
annot_col_color=annotation_col_color,
annot_row_color=annotation_row_color,names_font_style="mono",
names_fontface="italic",names_color="coral4",fontsize=5,
legend_fontsize=5,legend_fontface="italic",
legend_color="coral4",cut_rowtree=2,cut_coltree=2,
mat_legend_size=5)
Run the code above in your browser using DataLab